100 REM" [211]MOOTH SCROLLER DEMO, ([195]) [193].[205]ILLETT 1990
120 [143]" (null)AKEN FROM GOMOKU.
150 POKE55,0:POKE56,128:CLR:REM" TOP=32768
200 [134] CNV%(64) :[143]" ASC-SPRITE CONVERSION
300 GOSUB 9000 :REM" [201]NIT VARS
320 [141] 32500:[143]" FILL CNV%() FOR SPRITE-CONVERSION
340 GOSUB 30000:REM" [211]ET VDU TO $8000, [204]OAD CHRSET,SPRITES,M/CODE
360 [141] 31000:[143]" (null)ELECT UPPER
380 GOSUB 20000:REM" [193]ND DO DEMO...
990 [128]
999 :
9000 [143]" RIGHT$NITIALISE VARIABLES
9010 S=54272             :REM" [211][201][196]
9040 VIC [178] 53248         :[143]" (null)RIGHT$LEN CHIP
9050 P=32768 : COL=55296 :REM" [214][196][213], COLOR RAM
9590 [142]
9999 :
20000 [143] * INSTRUCTIONS
20005 [153]"LOAD";
20010 [151]53280,4:[151]53281,2
20015 [141] 29000
20020 [153]"DEFORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
20030 [153]"DEF(null)SYS  (null)(null)(null)   (null)(null)  (null)   (null)  (null)(null)  (null)  (null) (null)  (null) DEF(null)"
20040 [153]"(null)SYS (null)   (null) (null)  (null) (null)(null) (null)(null) (null)  (null) (null) (null)  (null)  (null) DEF(null)"
20050 [153]"(null)SYS (null)     (null)  (null) (null) (null) (null) (null)  (null) (null)(null)   (null)  (null) DEF(null)"
20060 [153]"(null)SYS (null) (null)(null)(null) (null)  (null) (null)   (null) (null)  (null) (null)(null)   (null)  (null) DEF(null)"
20070 [153]"(null)SYS (null)   (null) (null)  (null) (null)   (null) (null)  (null) (null) (null)  (null)  (null) DEF(null)"
20080 [153]"(null)SYS  (null)(null)(null)   (null)(null)  (null)   (null)  (null)(null)  (null)  (null)  (null)(null)  DEF(null)"
20090 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
20120 [153]"SMOOTH SCROLLER DEMO."
20140 [153]"COPYRIGHT A.MILLETT."
20299 :
20300 KY$[178]" "
20310 MPTR[178]0 :[143]" (null)ESET PTR FOR NEW MESSAGE
20320 MSG$=" %WELCOME TO %&GOMOKU! ":GOSUB 32700
20330 MSG$=" %&BROUGHT TO YOU BY %&COMMODORE DISK USER %&":GOSUB 32700
20340 MSG$="MAGAZINE, POSSIBLY THE BEST MAG IN THE HISTORY OF TIME ":GOSUB32700
20350 MSG$="ITSELF. I HOPE YOU LIKE THE %&BOUNCY SCROLL, %& IT ":GOSUB 32700
20360 MSG$="MAKES A CHANGE FROM THE USUAL SMOOTH SCROLL EFFECT. ":GOSUB 32700
20370 MSG$="I HAVE IMPLEMENTED TWO VARIETYS OF THE GAME HERE, ":GOSUB 32700
20380 MSG$="SINCE IT IS TOO EASY FOR THE FIRST PLAYER TO FORCE ":GOSUB 32700
20390 MSG$="A WIN IN TRADITIONAL GOMOKU.  %":GOSUB 32700
20395 PRINT"HIT SPACE TO CONTINUE."
20400 GOSUB 32100:REM" SCROLL A MESSAGE
20450 [141] 31200:[143]" TO LOWER CASE..
20500 PRINT"[147][207]K, DEMO OVER."
20990 RETURN
20999 :
29000 REM" FILL SCREEN WITH BLACK 87
29040 [151] 39984[170]17,87:[143]" SET FILLCHR
29060 SYS 39951 :REM" FILLVDU
29100 [142]
29999 :
30000 [143]" RIGHT$NITIALISE UDG @ $8000, (null)OAD CHRSET,SPRITES,M/CODE
30020 IF PEEK(828) = 123 THEN 30500
30030 POKE 828,123
30040 REM" [197]NSURE BITS 0,1 OUTPUT
30060 [151] 56578,[194](56578) [176] 3
30080 [151] 56576,([194](56576) [175] 252) [176] 1:[143]" (null)EL BANK $8000
30100 POKE 53272,4:REM" [214]DU $8000, [195]HRSET $8800
30120 [151] 648,128:[143]" (null)ELL KERNAL WHERE (null)DU IS.
30130 PRINT"[147]";
30140 LOAD"SET.GOM*",8,1
30160 RETURN
30499 :
30500 REM" [204]OAD SPRITE CHARS
30520 [139] [194](829) [178] 123 [167] 30700
30540 [151] 829,123
30560 [147]"LET.$A000",8,1
30580 [144]
30699 :
30700 [143]" LOAD SMOOTH M/CODE
30720 IF PEEK(830) = 123 THEN RETURN
30740 POKE 830,123
30760 LOAD"SMOOTH??.EXE*",8,1
30780 STOP
30799 :
30999 :
31000 REM" [211]WITCH TO UPPER UDG SET
31040 [151] 53272,2:[143]" (null)DU $8000, LENHRSET $8800
31090 RETURN
31099 :
31200 REM" [211]WITCH TO NORM LOWER/UPPER
31240 [151] 53272,6:[143]" (null)DU $8000, LENHRSET NORM
31290 RETURN
31999 :
32000 REM" [211]MOOTH [211]CROLL (MSG$) TIL (KY$)
32040 [143]
32060 MPTR[178]0
32080 [141] 32700 :[143]" PEEKUILD MESSAGE
32099 :
32100 REM" CALL HERE IF ALREADY BUILT.
32199 :
32200 FL[178]39984 :[143]" (null)TART OF FLAGS
32250 POKE FL+15,224  :REM" VERT LINE
32260 [151] FL[170]10,1    :[143]" (null)PR COLOR
32300 SYS 39939  :REM" RESETSMOOTH
32340 [158] 39936  :[143]" DOSMOOTH
32399 :
32400 GET CKY$
32420 FOR X=1 TO LEN(KY$)
32440 : IF CKY$=MID$(KY$,X,1) THEN POKE VIC+21,0:RETURN
32460 NEXT X
32480 GOTO 32340 :REM" [201]NCORRECT KEY, CONT WITH SMOOTH..
32499 :
32500 [143]" RIGHT$NITIALISE CNV%() FOR ASC/SPRITE CONVERSION
32520 FOR X=0 TO 63
32530 : CNV%(X)=0
32540 NEXT X
32560 FOR X=1 TO 26
32570 : CNV%(X)=X+1
32580 NEXT X
32600 CNV%(32)=1
32610 CNV%(38)=128 :REM" & WIGGLE
32620 CNV%(37)[178]129 :[143]" % FAST
32630 CNV%(46)=28
32640 CNV%(33)=29
32660 CNV%(63)=30
32670 CNV%(39)=31
32680 CNV%(44)=32
32690 RETURN
32699 :
32700 REM" [194]UILD MESSAGE (MSG$)
32720 MLOC[178]36864[170]MPTR[171]1
32740 [129] CM[178]1 [164] [195](MSG$)
32760 : CH%[178][198]([202](MSG$,CM,1))
32900 : [151] MLOC[170]CM,CNV%(CH% [175] 63)
32920 [130] CM
32940 [151] MLOC[170]CM,0  :[143]" NULL TERM
32960 MPTR=MPTR+CM-1
32990 RETURN
32999 :